home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / hard / drivr / eb920_sanaII.lha / sanaII / Install-EB920 < prev    next >
Text File  |  1996-09-24  |  7KB  |  269 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-EB920 v1.0.0 (19.05.93)
  4. ; *
  5. ; * This is the installation script for ASDG's Lan Rover (EB920) Ethernet Board
  6. ; * SANA II device driver.
  7. ; *
  8. ; * NOTE: Users of Oxxi, Inc.'s Amiga Client Software for Novell NetWare and
  9. ; *       Interworks' ENLAN-DFS do not need any software on this disk.
  10. ; *
  11. ; * Copyright © 1992-1993 ASDG, Incorporated  All Rights Reserved
  12. ; *
  13. ; ************************************************
  14. ;
  15.  
  16.  
  17. ; ****************************
  18. ; * Set up some global variables.
  19. ; ****************************
  20. ;
  21. (set ProductName    "EB920")        ; product name
  22. (set ProductBaseName    "EB920")        ; product base name
  23. (set HardwareName    "EB920")        ; hardware name
  24.  
  25. (set OSVersion        (/ (getversion) 65536))
  26. (set TotalFiles        0)
  27. (set AccumFiles        0)
  28. (set PctDone        0)
  29. (set DisplayReadMe    0)
  30.  
  31. (set Disk1Name        "EB920_SANAII")        ; actual name of disk 1
  32. (set DiskInstall    Disk1Name)        ; installation (main) disk
  33.  
  34.  
  35.  
  36.  
  37. (procedure setDeviceDriverOpts
  38. ;
  39. ; ****************************
  40. ; * Ask the user which device driver to install.
  41. ; ****************************
  42. ;
  43.     (
  44.     (set DeviceDriverOpts
  45.         (askchoice
  46.             (prompt
  47.                 ("At which interrupt level do you want to run the %s." HardwareName)
  48.             )
  49.             (help
  50.                 "This part of the installation procedure lets you select which "
  51.                 "device driver to install, based upon the interrupt level at which you "
  52.                 "want to run the board.\n"
  53.                 "\n"
  54.                 "*** Interrupt Level 2\n"
  55.                 "This choice will install the level 2 version of the eb920.device.  Interrupt "
  56.                 ("level 2 is a fairly low priority interrupt level.  The %s running" HardwareName)
  57.                 "at this level will probably not impact your system performance at all, but "
  58.                 "may not get services by your Amiga quickly enough if placed on VERY busy networks.  "
  59.                 "Int 2 operation is produced by setting jumper J2 to the right. (when holding the "
  60.                 "board with the fingers towards you).\n"
  61.                 "\n"
  62.                 "*** Interrupt Level 6\n"
  63.                 "This choice will install the level 6 version of the eb920.device.  This is a "
  64.                 ("high priority interrupt, which means the %s will be serviced right " HardwareName)
  65.                 "away; possibly at the expense of other devices on your system.  Int 6 operation "
  66.                 "is produced by setting jumper J2 to the left.\n"
  67.                 "\n"
  68.                 @askchoice-help
  69.             )
  70.             (choices
  71.                 ; bit position 0 -- todo & 1
  72.                 ;
  73.                 "Interrupt Level 2"
  74.  
  75.                 ; bit position 1 -- todo & 2
  76.                 ;
  77.                 "Interrupt Level 6"
  78.             )
  79.         )
  80.     )
  81.  
  82.     (if (= DeviceDriverOpts 0)
  83.         (set DeviceDriverCode "2")
  84.         (set DeviceDriverCode "6")
  85.     )
  86.     )
  87. )
  88.  
  89.  
  90.  
  91.  
  92. (procedure setDirPath
  93. ;
  94. ; ****************************
  95. ; * Ask the user for a directory name.
  96. ; ****************************
  97. ;
  98. ; these variables must be defined before calling this procedure:
  99. ;    setDirPathWhy
  100. ;    setDirPathHelp
  101. ;    DirPath
  102. ;
  103. ; this procedure returns the selected directory in DirPath
  104. ;
  105.     (
  106.     (set moveon FALSE)
  107.     (while (NOT moveon)
  108.         (
  109.         (set DirPath
  110.             (askdir
  111.                 (prompt    ("Please select the directory %s" setDirPathWhy)
  112.                 )
  113.                 (help    setDirPathHelp
  114.                     "\n"
  115.                     @askdir-help
  116.                 )
  117.                 (default DirPath)
  118.             )
  119.         )
  120.  
  121.         (if (= (exists DirPath) 0)
  122.             (makedir DirPath)
  123.             (set moveon TRUE)
  124.         )
  125.         )
  126.     )
  127.     )
  128. )
  129.  
  130.  
  131.  
  132.  
  133. ; ****************************
  134. ; * Device Driver Installation routine
  135. ; ****************************
  136. ;
  137. (procedure DeviceDriverInstall
  138.     (
  139.     ; ****************************
  140.     ; * Install the selected device driver
  141.     ; ****************************
  142.     ;
  143.     (if (<> (exists "DEVS:Networks") 2)
  144.         (makedir "DEVS:Networks")
  145.     )
  146.  
  147.     (copyfiles
  148.         (prompt    ("Installing Interrupt Level %s device driver..." DeviceDriverCode))
  149.         (help    "")
  150.         (source    ("%s:devs_i%s/eb920.device" DiskInstall DeviceDriverCode))
  151.         (dest    "DEVS:Networks")
  152.     )
  153.     )
  154. )
  155.  
  156.  
  157.  
  158.  
  159. ; ****************************
  160. ; * SANA II utilities Installation routine
  161. ; ****************************
  162. ;
  163. (procedure SANAIIUtilInstall
  164.     (
  165.     ; ****************************
  166.     ; * Install the SANA II Utilities
  167.     ; ****************************
  168.     ;
  169.     (copyfiles
  170.         (prompt    "Installing SANA II utility...")
  171.         (help    "")
  172.         (source    ("%s:C/s2util" DiskInstall))
  173.         (dest    "C:")
  174.     )
  175.     )
  176. )
  177.  
  178.  
  179.  
  180.  
  181. ; ****************************
  182. ; * General CleanUp routine
  183. ; ****************************
  184. ;
  185. (procedure cleanUp
  186.     (
  187.     ; ****************************
  188.     ; * exit the program.
  189.     ; ****************************
  190.     ;
  191.     (if (= DisplayReadMe 1)
  192.         (
  193.         (if (< OSVersion 37)
  194.             (run ("c:run %s:C/More %s:ReadMe" DiskInstall DiskInstall))
  195.             (if (>= OSVersion 39)
  196.                 (run ("run SYS:Utilities/MultiView %s:ReadMe" DiskInstall))
  197.                 (run ("run %s:C/More %s:ReadMe" DiskInstall DiskInstall))
  198.             )
  199.         )
  200.         (complete 100)
  201.         (exit)
  202.         )
  203.         (
  204.         (complete 100)
  205.         (exit (quiet))
  206.         )
  207.     )
  208.     )
  209. )
  210.  
  211.  
  212.  
  213.  
  214. ; *************************************************************************
  215. ; *                         ACTUAL START OF SCRIPT
  216. ; *
  217. ; * Ask all questions for the user now, do all of the work later.
  218. ; *************************************************************************
  219. ;
  220.  
  221. ; ****************************
  222. ; * set the default destination to DEVS:Networks.
  223. ; ****************************
  224. ;
  225. (set @default-dest "DEVS:Networks")
  226.  
  227.  
  228. (if (= 1 (askbool
  229.         (prompt    ("\n\nAre you using the %s board with any one of the following packages?\n\n\n1. Oxxi, Inc.'s Amiga Client Software\n      for Novell NetWare             \n\n2. Interworks' ENLAN-DFS             " HardwareName))
  230.         (help    "This part of the installation process will determine whether anything on this disk will be required for use "
  231.             "with a particular networking software package.\n"
  232.             "\n"
  233.             "At this time, Oxxi's Amiga Client Software for Novell NetWare and Interworks' "
  234.             ("ENLAN-DFS do not require any software on this disk to function with the %s board.  " HardwareName)
  235.             "You should consult the manuals that come with those packages for information regarding the software that is required for use "
  236.             ("with the %s.\n" HardwareName)
  237.             "\n"
  238.             ("If you will be using the %s board with a networking package not listed above, select the " HardwareName)
  239.             "No button.\n"
  240.             "\n\n"
  241.             "All products are trademarks or registered trademarks of their respective holders.\n")))
  242.     (
  243.     (message
  244.         "\n\nThese packages do not need anything installed from this disk.  Press either the Proceed of Abort Install button to end this installation.")
  245.     )
  246.     (
  247.     (setDeviceDriverOpts)
  248.  
  249.     (complete 0)
  250.  
  251.     (message "\nShall I proceed with the installation?"
  252.         (help    "Once you press the Proceed button, the selected software will be installed.  This is your last chance "
  253.             "to abort this procedure.\n"
  254.             "\n"
  255.             "After you press Proceed, you can use the Esc key to abort the installation procedure.\n")
  256.     )
  257.  
  258.     (complete 33)
  259.     (DeviceDriverInstall)
  260.  
  261.     (complete 66)
  262.     (SANAIIUtilInstall)
  263.  
  264.     (set DisplayReadMe    1)
  265.     )
  266. )
  267.  
  268. (cleanUp)
  269.